home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.09 Sep 89 / MacApp Code / Plot - Nelson / Plot.r < prev    next >
Encoding:
Text File  |  1989-03-20  |  6.7 KB  |  279 lines  |  [TEXT/MPS ]
  1. /* Copyright © 1988-1989 Apple Computer, Inc.  All rights reserved. */
  2.  
  3. #if qDebug
  4. include "Debug.rsrc";
  5. #endif
  6. include "MacApp.rsrc";
  7. include "Dialog.rsrc";
  8. include "Printing.rsrc";
  9.  
  10. include "Plot" 'CODE';
  11.  
  12. #define kPlotView            1010
  13. #define kViewRsrcID            1005
  14.  
  15. resource 'seg!' (256, purgeable) {
  16.     {
  17.         "GOpen";
  18.         "GClose";
  19.         "GNonRes";
  20.         "GSelCommand"
  21.     }
  22. };
  23.  
  24. resource 'SIZE' (-1) {
  25.     dontSaveScreen,
  26.     acceptSuspendResumeEvents,
  27.     enableOptionSwitch,
  28.     canBackground,
  29.     MultiFinderAware,
  30.     backgroundAndForeground,
  31.     dontGetFrontClicks,
  32.     ignoreChildDiedEvents,
  33.     is32BitCompatible,
  34.     reserved,
  35.     reserved,
  36.     reserved,
  37.     reserved,
  38.     reserved,
  39.     reserved,
  40.     reserved,
  41. #if qDebug
  42.     368 * 1024,        /* ??? BALLPARK GUESSES!!! ????????????????????????????????????    */
  43.     320 * 1024
  44. #else
  45.     (300-32) * 1024,        /* ??? BALLPARK GUESSES!!! ????????????????????????????????????    */
  46.     (200-32) * 1024
  47. #endif
  48. };
  49.  
  50. resource 'DITL' (201, purgeable) {
  51.      {
  52. /* [1] */    {160, 182, 180, 262}, Button { enabled, "OK" };
  53. /* [2] */    {10, 75, 150, 316}, StaticText { disabled, 
  54.     "This is an implementation of the MacTutor Plotter Program." 
  55.     "\n\n written "
  56.     "with MacApp® © 1985-1989 Apple Computer, Inc."};
  57. /* [3] */    {10, 20, 42, 52}, Icon { disabled, 1 }
  58.     }
  59. };
  60.  
  61. resource 'ALRT' (1000, purgeable) {
  62.     {44, 48, 130, 358},
  63.     1000,
  64.     {
  65.         OK, visible, sound1,
  66.         OK, visible, sound1,
  67.         OK, visible, sound1,
  68.         OK, visible, sound1
  69.     }
  70. };
  71.  
  72. resource 'ALRT' (201, purgeable) {
  73.     {90, 100, 280, 412},
  74.     201,
  75.     {
  76.         OK, visible, silent;
  77.         OK, visible, silent;
  78.         OK, visible, silent;
  79.         OK, visible, silent
  80.     }
  81. };
  82.  
  83. resource 'cmnu' (1) {
  84.     1,
  85.     textMenuProc,
  86.     0x7FFFFFFD,
  87.     enabled,
  88.     apple,
  89.      {
  90. /* [1] */    "About Plotter…", noIcon, noKey, noMark, plain, cAboutApp;
  91. /* [2] */    "-", noIcon, noKey, noMark, plain, nocommand
  92.     }
  93. };
  94.  
  95.  
  96. resource 'cmnu' (2) {
  97.     2,
  98.     textMenuProc,
  99.     0x7FFFEEFB,
  100.     enabled,
  101.     "File",
  102.      {
  103.         "New", noIcon, "N", noMark, plain, cNew;
  104.         "Open…", noIcon, "O", noMark, plain, cOpen;
  105.         "-", noIcon, noKey, noMark, plain, nocommand;
  106.         "Close", noIcon, noKey, noMark, plain, cClose;
  107.         "Save", noIcon, "S", noMark, plain, cSave;
  108.         "Save As…", noIcon, noKey, noMark, plain, cSaveAs;
  109.         "Save a Copy In…", noIcon, noKey, noMark, plain, cSaveCopy;
  110.         "Revert", noIcon, noKey, noMark, plain, cRevert;
  111.         "-", noIcon, noKey, noMark, plain, nocommand;
  112.         "Page Setup…", noIcon, noKey, noMark, plain, cPageSetup;
  113.         "Print…", noIcon, noKey, noMark, plain, cPrint;
  114.         "-", noIcon, noKey, noMark, plain, nocommand;
  115.         "Quit", noIcon, "Q", noMark, plain, cQuit
  116.     }
  117. };
  118.  
  119. resource 'cmnu' (3) {
  120.     3,
  121.     textMenuProc,
  122.     0x7FFFFFBD,
  123.     enabled,
  124.     "Edit",
  125.      {
  126. /* [1] */    "Undo", noIcon, "Z", noMark, plain, cUndo;
  127. /* [2] */    "-", noIcon, noKey, noMark, plain, nocommand;
  128. /* [3] */    "Cut", noIcon, "X", noMark, plain, cCut;
  129. /* [4] */    "Copy", noIcon, "C", noMark, plain, cCopy;
  130. /* [5] */    "Paste", noIcon, "V", noMark, plain, cPaste;
  131. /* [6] */    "Clear", noIcon, noKey, noMark, plain, cClear;
  132. /* [7] */    "-", noIcon, noKey, noMark, plain, nocommand;
  133. /* [8] */    "Show Clipboard", noIcon, noKey, noMark, plain, cShowClipboard
  134.     }
  135. };
  136.  
  137.  
  138. /* Hierarchical  Format menu with Style, Size and Font submenus */
  139. resource 'cmnu' (7) {
  140.     7,
  141.     textMenuProc,
  142.     allEnabled,
  143.     enabled,
  144.     "MacAppPlot",
  145.      {
  146. /* [ 1] */    "Plot",                noIcon, noKey, noMark, plain, 1401;
  147. /* [ 2] */    "-",                noIcon,    noKey,    noMark,    plain,    nocommand;
  148. /* [ 3] */    "Style",            noIcon, "\0x1B", "\0x08", plain, 2401;
  149. /* [ 4] */    "Size",                noIcon, "\0x1B", "\0x09", plain, 2402;
  150. /* [ 5] */    "Font",                noIcon, "\0x1B", "\0x0A", plain, 2403;
  151. /* [ 6] */    "Color",            noIcon, "\0x1B", "\0x0B", plain, 2404
  152.     }
  153. };
  154.  
  155. /* Hierarchical Style Sub-menu */
  156. resource 'cmnu' (8) {
  157.     8,
  158.     textMenuProc,
  159.     allEnabled,
  160.     enabled,
  161.     "Style",
  162.      {
  163. /* [ 1] */    "Plain Text",        noIcon,    "P",    noMark,    plain,        2001;
  164. /* [ 2] */    "Bold",                noIcon,    "B",    noMark,    bold,        2002;
  165. /* [ 3] */    "Italic",            noIcon,    "I",    noMark,    italic,        2003;
  166. /* [ 4] */    "Underline",        noIcon,    "U",    noMark,    underline,    2004;
  167. /* [ 5] */    "Outline",            noIcon,    "O",    noMark,    outline,    2005;
  168. /* [ 6] */    "Shadow",            noIcon,    "S",    noMark,    shadow,        2006;
  169. /* [ 7] */    "Condensed",        noIcon,    noKey,    noMark, condense,    2007;
  170. /* [ 8] */    "Extended",            noIcon,    noKey,    noMark, extend,        2008;
  171. /* [ 9] */    "-",                noIcon,    noKey,    noMark,    plain,    nocommand;
  172. /* [10] */    "Left justified",    noIcon,    noKey,    noMark,    plain,    2201;
  173. /* [11] */    "Center justified",    noIcon,    noKey,    noMark,    plain,    2202;
  174. /* [12] */    "Right justified",    noIcon,    noKey,    noMark,    plain,    2203
  175.     }
  176. };
  177.  
  178. /* Hierarchical Size Sub-menu */
  179. resource 'cmnu' (9) {
  180.     9,
  181.     textMenuProc,
  182.     AllEnabled,
  183.     enabled,
  184.     "Size",
  185.      {
  186. /* [ 1] */    " 9 Point",            noIcon,    noKey,    noMark,    plain,    2109;
  187. /* [ 2] */    "10 Point",            noIcon,    noKey,    noMark,    plain,    2110;
  188. /* [ 3] */    "12 Point",            noIcon,    noKey,    noMark,    plain,    2112;
  189. /* [ 4] */    "14 Point",            noIcon,    noKey,    noMark,    plain,    1114;
  190. /* [ 5] */    "18 Point",            noIcon,    noKey,    noMark,    plain,    1118;
  191. /* [ 6] */    "24 Point",            noIcon,    noKey,    noMark,    plain,    1124;
  192. /* [ 7] */    "-",                noIcon,    noKey,    noMark,    plain,    nocommand;
  193. /* [ 8] */    "Grow selection",    noIcon,    "]",    noMark,    plain,    1198;
  194. /* [ 9] */    "Shrink selection",    noIcon,    "[",    noMark,    plain,    1199
  195.  
  196.      }
  197. };
  198.  
  199. /* Font menu for hierarchical or non-hierarchical system */
  200. resource 'MENU' (10) {
  201.     10,
  202.     textMenuProc,
  203.     allEnabled,
  204.     enabled,
  205.     "Font",
  206.     { }
  207. };
  208.  
  209. resource 'cmnu' (11) {
  210.     11,
  211.     textMenuProc,
  212.     allEnabled,
  213.     enabled,
  214.     "Color",
  215.     {
  216. /* [ 1] */    "Set Graph Color…", noIcon,    noKey,    noMark,    plain,    2503;
  217. /* [ 2] */    "Set Axis Color…",  noIcon,    noKey,    noMark,    plain,    2504;
  218. /* [ 3] */    "Set Text Color…",    noIcon,    noKey,    noMark,    plain,    2501;
  219. /* [ 4] */    "Set Background Color…",
  220.                                 noIcon,    noKey,    noMark,    plain,    2502
  221.     }
  222. };
  223.  
  224.  
  225. resource 'cmnu' (128) {
  226.     128,
  227.     textMenuProc,
  228.     allEnabled,
  229.     enabled,
  230.     "Buzzwords",
  231.     {
  232.         "Style Change",            noIcon,    noKey,    noMark,    plain,    cStyleChange;
  233.         "Size Change",            noIcon,    noKey,    noMark,    plain,    2100;
  234.         "Justification Change",    noIcon,    noKey,    noMark,    plain,    2200;
  235.         "Font Change",            noIcon,    noKey,    noMark,    plain,    2300;
  236.         "Color Change",            noIcon,    noKey,    noMark,    plain,    2500;
  237.         "Page Setup Change",    noIcon,    noKey,    noMark,    plain,    cChangePrinterStyle
  238.     }
  239. };
  240.  
  241.  
  242. /* Displayed menus on a non-hierarchical system */
  243. resource 'MBAR' (128) {
  244.     {1; 2; 3 ; 8; 9; 10; 11}
  245. };
  246.  
  247. /* Displayed menus on an hierarchical system */
  248. resource 'MBAR' (131) {
  249.     {1; 2; 3; 7}
  250. };
  251.  
  252. /* Hierarchial Sub-Menus */
  253. resource 'MBAR' (130) {
  254.     {8; 9; 10; 11}
  255. };
  256.  
  257. resource 'STR#' (1001, purgeable) {
  258.     {
  259. /* [ 1] */    "Select a new text color…",
  260. /* [ 2] */    "Select background color…"
  261. /* [ 2] */    "Select graph line color…"
  262. /* [ 2] */    "Select axis color…"
  263.     }
  264. };
  265.  
  266. /* a resource for picking up default text, graph and color info */
  267. resource 'view' (kViewRsrcID, purgeable) {{
  268.     root, 'TEVW', { 0, 0 }, { 116, 1020 },
  269.         sizeVariable, sizePage, shown, enabled,
  270.         TEView { "TTEView",
  271.             withStyle, autoWrap, acceptChanges,
  272.             dontFreeText, cTyping, unlimited,
  273.             { 8, 10, 0, 10 },
  274.             justLeft, plain, 9, {0, 0, 0}, "Geneva" }
  275. } };
  276.  
  277.  
  278. /* resource 'MBAR' (129) { {235} }; */
  279.